﻿Public Class Font

    Public Property FileName() As String
    Public Property Size() As Integer
    Public Property Color() As SByte

    Public Sub New()
        Me.FileName = ""
        Me.Size = 0
        Me.Color = 0
    End Sub

    Public Sub New(ByVal fn As String, Optional ByVal s As Integer = 22, Optional ByVal c As SByte = 0)
        Me.FileName = fn
        Me.Size = s
        Me.Color = c
    End Sub

End Class